home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib11.dsk / HI-RES CHARACTER DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  31 lines
  1. 10  REM  **********************
  2. 20  REM  * HI-RES CHAR. DEMO  *
  3. 30  REM  * BY JAMES TOTTEN    *
  4. 40  REM  * COPYRIGHT (C) 1982 *
  5. 50  REM  * BY MICRO-SPARC INC *
  6. 60  REM  * LINCOLN, MA. 01773 *
  7. 70  REM  **********************
  8. 80 D$ =  CHR$(13) + CHR$(4)
  9. 90  TEXT : HOME : PRINT : PRINT "HIGH-WRITER": PRINT : PRINT "BY JAMES TOTTEN": PRINT : PRINT : INVERSE : PRINT "NOW LOADING SHAPE TABLE FROM DISK.": PRINT 
  10. 100  NORMAL 
  11. 110  PRINT D$"BLOAD CHARACTERS": POKE 232,0: POKE 233,64
  12. 120 X = 2:Y = 5: SCALE= 1: ROT= 0
  13. 130  HGR : HCOLOR= 3: POKE  -16302,0:UC = 0:
  14. 140  HCOLOR= 3: HPLOT X,Y +8 TO X +5,Y +8: HOME : GET C$
  15. 150  IF C$ =  CHR$(14)  THEN  CALL  -198:UL = 1: GOTO 140
  16. 160  IF C$ =  CHR$(27)  THEN UC = 1: CALL  -198: GOTO 140
  17. 170  IF C$ =  CHR$(12)  THEN  CALL  -198:UL = 0: GOTO 140
  18. 180  IF C$ =  CHR$(13)  THEN  HCOLOR= 0: HPLOT X,Y +8 TO X +5,Y +8:X = 2:Y = Y +10: GOSUB 270: GOTO 140
  19. 190  IF C$ =  CHR$(8)  THEN  HCOLOR= 0: HPLOT X,Y +8 TO X +5,Y +8:X = X -7: GOSUB 270: GOTO 140
  20. 200  IF C$ =  CHR$(21)  THEN  HCOLOR= 0: HPLOT X,Y +8 TO X +5,Y +8:X = X +7: GOSUB 270: GOTO 140
  21. 210 CC =  ASC(C$) -31
  22. 220  IF (UL  OR UC)  AND ( ASC(C$) >64  AND  ASC(C$) <91)  THEN CC = CC +28
  23. 230  IF ((UL = 0)  AND (UC = 0))  AND ( ASC(C$) >64  AND  ASC(C$) <91)  THEN  HCOLOR= 0: FOR L = X TO X +5: HPLOT L,Y TO L,Y +7: NEXT L: HCOLOR= 3:Y = Y +1: DRAW CC AT X,Y:Y = Y -1: GOTO 250
  24. 240  HCOLOR= 0: FOR L = X TO X +5: HPLOT L,Y TO L,Y +7: NEXT L: HCOLOR= 3: DRAW CC AT X,Y: IF UC  THEN UC = 0
  25. 250  HCOLOR= 0: HPLOT X,Y +8 TO X +5,Y +8:X = X +7: GOSUB 270
  26. 260  GOTO 140
  27. 270  IF X >270  THEN X = 2:Y = Y +10
  28. 280  IF Y >180  THEN Y = 5
  29. 290  IF X <2  THEN X = 268:Y = Y -10
  30. 300  IF Y <5  THEN Y = 5
  31. 310  RETURN